. DO Externa I 

.LSTON 

.Page 

; >>>>>>>>>>>.^>>>>>>>>>>>> 
• > 

;> Module: Self test 

; > 

;> THIS MODULE IS INTENDED TO RUN IN BANK 1 

;> FUNCTION: MtrSpd 

;> FUNCTION: TrackCount 

;> FUNCTION: SctrCount 

;> FUNCTION: RuiTest 

;>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

-DO Internal 
.LSTON 
.Page 





.FIN 




Self Test: 


Tm 

Jr 


Excpt_Stat,*PwrRst ; check for power reset 
Z.ST-MtrSpd 




Ld 
Or 
Jr 


?rO,ScrJCntr ; otherwise finish time on disk speed 

!rO.Scr_JCntr+1 

Z, STJItrSpd 




Ld 
Ld 
Cal 1 


!r2.Scr_Cntr 

!r3^ScrJC:ntr+1 

MsMait 


STJItrSpd: 


Cal 1 
Jr 


MtrSpd 

Nz,S}f_Leave 




find 


S 1 f Tst_Resu 1 1 ^ «$FF-0 i sk JSpeed 


Slf_Tracks: 


Call 
find 


TrackCount 

SI fTst_Resul t,«$FF-Servo_Fai 1 


Slf_Sectors: 


Call 
Jr 


SctrCount 
N2j,Slf_LeaMe 




find 


S 1 fTst_Resu 1 t, «$FF-Sector_Cnt 


Slf_State: 


Call 
And 

Jr 


Load-JStatus ; check state machine static state 

lrO,«VMask 

N2,Slf_Leaye 




find 


S 1 f Ts t-fiesu 1 1 , «$FF-S ta te_Fa i 1 


Slf_RuiTsst: 


Cal 1 
Jr 


RuiTest ;see i f we can read and writs 
Z/S If -Leave 




find 


S 1 f Tst_Resu 1 t , «$FF-Rw_Fa i 1 


Slf_LeaMe: 


Jp 


Bank_Ret 




.LSTOFF 
.00 

.LSTON 
. Page 


External 



;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
; > 

;> Function: htrSpd { Motor Speed ) 

; > 

;> This function is responsible for measuring the motor 

;> speed. This is done fay timing the interval between 

;> consectutive index marks. 
• > 

;> Inputs: { none } 

; > Outputs : 

;> ritrSpd : BOOLEAN { zero flag MOT set if failure } 

■ > 

;>>>>>>. ^ >>>>>>>>>>> >>>>>>>>>>>>>>> 

.LSTOFF 
.FIH 

.DO Internal 

.LSTON 

.Paqe 

.Firi 



MtrSpd: find lr-q,*$FF-lrq_lndex ;clear old event 

CIr IrO 

CIr Irl ;cj ear counter 

Ld !r4^*16 ;!oad dead man timer 

CIr !r5 

Call SetOmt [entering critca! section - don't hangup! 



l1trSpd_1: Tm lrq^*lrq_lndex ;wait for index to come around 

Jr Z,ntrSpd_1 

find lrqj*$FF-lrq_}ndex-}rqjSector ; clear events 

Call CIrDrot ; leave crtical section 



HtrSpd_Lp: Tm lrq^«lrq_lndex ;«jait for one rev 

Jr . M trSpd_End 

I new !!rO ;.0t42 ms/lp or 70.4 cnts/ms 

Decw } ! r4 

Jr ri2,ritrSpd_Lp 



!1trSpd_£nd: Ld IrEJrt 

Ld !rD.!r-0 

Ld !rC>0 

Ld !r2.#.H!BVTE. 0iv3_19 

Ld !r3,*.L0WBVTE. Div3_19 

Call Bank-Call jget speed within tolerence in !r2 
.LSTOFF 

.DO w_ionB 
.LSTON 

Ld ?rO,*1 ; assume failure 

Cp !r2j,*$44 ; accepts speeds between 18.5 ms and 20.5 ms 

Jr Lt.NtrSpdlLv 

Cp lr2,#$4C 

Jr Gt,MtrSpd_Ly 

Ld !rO,*0 -otherwise pass 

.FIN 

.00 U_20riB+H_40riB 
.LSTON 

Ld IrO.^I ;assume failure 

Cp !r2.*$48; accepts speeds between 18.5 ms and 20.5 ms 

Jr Lt,NtrSpd_Lv 

Cp !r2,#$4C 



dr 
Ld 
.FtN 



Gt,l1trSpd_Lv 

!rO,*0 .otherwise pass 



M tr-Spd JLv : Or ! rO, ! rO ; se t f I aqs 

Ret 

.LSTOFF 

.DO External 

.LSTON 

.Page 

•>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
; > Func t i on : TrackCoun t 

;> This function is responsible for counting the number of 

;> tracks that are available on the servo. 

; > Inputs: { none } 

• > 

;> Outputs: 

;> TrockCount : BOOLEftN { zero flag HOT set if failure > 

; > ftlgorithm: 
■ > 

;> BEGIN 

;> Res tore < Forma tRecai > 

;> Seek< Cy!=0 > 

; > END 

- > 

;> >>>>>>>>>>>>>> :> > > >>>>:>>>>>>>>>> 
.LSTOFF 
.FIH 

.DO Internal 

.LSTON 

.Page 

.FIN 

TrackCoun t: 

Ld !r2,«.HIBVTE. ResetServo 
Ld } r3, * . LOWBS'TE . Rese tServo 
Call BankJCall ;try to get the servo in a nice state 

find OiskStat,»$FF-RdHdrRecal ; don't read any headers! 

Ld ?rO,*DataRecal 

Ld «r2,«.HiBVTE. Restore 

Ld lr3,«.L0WBVTE. Restore 

Calf BankJCall 

Ld !rC.«0 .cylinder = 

Ld !rD>$69 " 

Ld !rE,«0 ;head = 

Ld !rF,*0 ;sector = 

Ld lr2,«.HIBS^TE. Seek 

Ld lr:3,«.L0yBVTE. Seek 

Call Bank-Call 
Ret 

.LSTOFF 

.DO External 

.LSTON 

. Page 



■>>>?>>>>>>>>>>>>>>>>>>??•>>>>>>>> 

• > 

;> Function: SctrCount 

• > 

;> This function counts the number of sector marks between 

;> successive index marks and returns a true value if 

;> the number of sectors counted equals MbrSctrs. 

;> Inputs: { none ) 

• > 

;> Outputs: 

;> SctrCount : BOOLERN { zero flag is set if true > 

;>>:>>>>:>>:>>:>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

-DO fnterrial 
.LSTON 
-Page 

.pm 

SctrCount: 

CIr 
find 

S_Cnt_l: Tm 
dr 

find 

SjCntJ3: Tm 
Jr 
Tm 
Jr 
Inc 
find 
Jr 

SjCnt_End: Cp 
Ret 
.LSTOFF 

.00 External 

.LSTOH 

. Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

;> Function: RwTest 

;> 

;> This test mourns the heads over a track away from the data 

;> area { useable data area ) and performs a mrite verify 

;> on block zero of that track. If a fa i lure occurs j, the test 

j> will continue on the next sequential sector on that tr-ack 

;> until all sectors have been «J!?ritten to. If there are no 

;> successful transfers on any of the sectors of this track then 

;> the test is assumed to have failed. 

;> 

;> Inputs: { none ) 

;> 

;> Outputs: 

;> RwTest : BOOLEfiN { zero flag set if failure ) 



!r2 ; count := 

lrq,*$FF-!rq_lndex ;clear old index marks 

I r q ^ • I r q_ I ndex ; lua i t for i ndex mark 
Z,SJCnt_1 

lrq,.*lrq_lndex-lrqJSector ;clear old events 

Por t3 , « I ndexllark ; Wh i I e NOT ( I ndex > 

riz,SjCnt_End 

lrq/*lrqJSector 

Z,SJCnt_3 

!r2 ; bump the sector count 
I rq . »$FF - 1 r q_Sec tor 
S_CntJ3 

fr2,«NbrSctrs 



fl I gor i thm : 

BEGIN 
Seek< RuiTest track ) 
REPEfiT 

IF NOT< WrUerJCoffifflcn ) RND < RdErrCnt = 10 > 
THEN 

Sector := Sector + 1 
IF ( Sector > HbrSctrs ) 
THEH Done := True 
ELSE Done : = True 
UNTIL Done 

IF < Sector > NbrSctrs > 
THEN RwTest := False 
ELSE RwTest := True 
END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>; 
.LSTOFF 
.FIN 

.00 Internal 

.LSTON 

.Page 

.FIN 



RwTest: 



RwTestI : 



Or DiskStat,»RdHdrRecal 

Ld U-0,«DataRecal 

Ld !r2,«.H!BVTE. Restore 

Ld lr3,«.L0WBVTE. Restore 

Call Bank-Call 

Ld !r5,«0 

Push Excpt-JStat ;saye state 

Jr 2,RwTest_End 

Pop Excpt_Stat 

Push Excpt^tat 

Or ExcptJStat,*RecoMery ; let the controller recover errors 

Ld !rC,«Tst_HiCyl 

Ld !rD,«TstJ_oCyl 

Ld }rE,«T5t_Head 

Ld !rF,»TstJ5ctr 

Ca 1 1 Nem_Seek 



Ld 



!r5,«NbrSctrs 



RwTest_Lp: 



Ld 


«r2.«.HIBVTE. Zero_Header 


Ld 


lr3,«.L0WBVTE. Zero-Header 


Cal 1 


Bank-Call 


Push 


IrS 


Or 


Disks tat, «WrJOp 


Ld 


!r2,»-HIBVTE. UrBlk_Uector 


Ld 


! r3, « . LOWBVTE . WrB f k-Uec tor 


Cal 1 


BankJCal 1 


P6p 


!r5 


Jr 


Z^Rw-Next 



Ld 

Push 
find 



RdErrCntj,*10 ; assume a fai lure 
IrS 

Disks tat, «$FF-WrJOp 



Ld !r2,«.HIBVTE. RdBlk_Uector 

Ld !r3,«.L0WBVTE. RdBlk_Uector- 

Cq} I BankJCal \ 

Pop 1 r5 

Jr Nz,RaiTest_End 

Jm !rO,«RdNoHdrFnd 

Jr Nz,Rw_Hext 

Ld Ir-O.RdErrCrit 

find lrO,*$OF ;niiask off unwanted status 

Cp !rO,«10 

Jr !iz,RwTest_End 

RwJiext: Inc Sector 

D j nz ! r 5 , RwTes t J-p 

RwTest_End: Ld !r2.*.HIBVTE. Park_Heads 

Ld !r3,«.L0MBVTE. Park_Heads 

Call BankJCall 

Pop Excpt_JStat ; recover original exception state 

Or !r5.!r5 ;set zero flaq 
Ret ■ " 



.LSTOFF 



